
*FIGURE 3
clear
use "childcare_model3.dta"
gen gap =  _Y_treated - _Y_synthetic
gen Year = _time
gen fla = 1 if komnr==615
qui su gap, detail
local gapmin = r(min)
local gapmax = r(max)
qui su Year, detail
local yearmin = r(min)
local yearmax = r(max)
levelsof komnr, local(levels)
foreach l of local levels {
	local gr `gr' line gap Year if komnr == `l' & komnr!=615, color(gs10)   ||
	}
	local gr `gr' line gap Year if fla == 1, color(black) c(L)  lw(thick)|| 
graph twoway   `gr' ,  ytitle("Gap child care") legend(off) graphr(color(white)) plotregion(style(none))|| scatteri `gapmin' 1995 `gapmax' 1995,  c(l) color(black) lp(dash_dot ) lw(thin) m(i)legend(off) || scatteri  0 `yearmin'  0 `yearmax',  c(l) color(black) lp(dash_dot ) lw(thin) m(i)legend(off)
 graph save Graph "placebo_childcare.gph", replace
graph export "placebo_childcare.pdf", as(pdf) replace

clear
use "education_model9.dta"
gen gap =  _Y_treated - _Y_synthetic
gen Year = _time
gen fla = 1 if komnr==615
qui su gap, detail
local gapmin = r(min)
local gapmax = r(max)
qui su Year, detail
local yearmin = r(min)
local yearmax = r(max)
levelsof komnr, local(levels)
foreach l of local levels {
	local gr `gr' line gap Year if komnr == `l' & komnr!=615, color(gs10)   ||
	}
	local gr `gr' line gap Year if fla == 1, color(black) c(L)  lw(thick)|| 
graph twoway   `gr' ,  ytitle("Gap education") legend(off) graphr(color(white)) plotregion(style(none))|| scatteri `gapmin' 1995 `gapmax' 1995,  c(l) color(black) lp(dash_dot ) lw(thin) m(i)legend(off) || scatteri  0 `yearmin'  0 `yearmax',  c(l) color(black) lp(dash_dot ) lw(thin) m(i)legend(off)
graph save Graph "placebo_education.gph", replace
graph export "placebo_education.pdf", as(pdf) replace

clear
use "elderly_model9.dta"
gen gap =  _Y_treated - _Y_synthetic
gen Year = _time
gen fla = 1 if komnr==615
qui su gap, detail
local gapmin = r(min)
local gapmax = r(max)
qui su Year, detail
local yearmin = r(min)
local yearmax = r(max)
levelsof komnr, local(levels)
foreach l of local levels {
	local gr `gr' line gap Year if komnr == `l' & komnr!=615, color(gs10)   ||
	}
	local gr `gr' line gap Year if fla == 1, color(black) c(L)  lw(thick)|| 
graph twoway   `gr' ,  ytitle("Gap elderlycare") legend(off) graphr(color(white)) plotregion(style(none))|| scatteri `gapmin' 1995 `gapmax' 1995,  c(l) color(black) lp(dash_dot ) lw(thin) m(i)legend(off) || scatteri  0 `yearmin'  0 `yearmax',  c(l) color(black) lp(dash_dot ) lw(thin) m(i)legend(off)
 graph save Graph "placebo_elderlycare.gph", replace
graph export "placebo_elderlycare.pdf", as(pdf) replace

clear
use "health_model3.dta"
gen gap =  _Y_treated - _Y_synthetic
gen Year = _time
gen fla = 1 if komnr==615
qui su gap, detail
local gapmin = r(min)
local gapmax = r(max)
qui su Year, detail
local yearmin = r(min)
local yearmax = r(max)
levelsof komnr, local(levels)
foreach l of local levels {
	local gr `gr' line gap Year if komnr == `l' & komnr!=615, color(gs10)   ||
	}
	local gr `gr' line gap Year if fla == 1, color(black) c(L)  lw(thick)|| 
graph twoway   `gr' ,  ytitle("Gap healthcare") legend(off) graphr(color(white)) plotregion(style(none))|| scatteri `gapmin' 1995 `gapmax' 1995,  c(l) color(black) lp(dash_dot ) lw(thin) m(i)legend(off) || scatteri  0 `yearmin'  0 `yearmax',  c(l) color(black) lp(dash_dot ) lw(thin) m(i)legend(off)
 graph save Graph "placebo_healthcare.gph", replace
graph export "placebo_healthcare.pdf", as(pdf) replace


graph combine "placebo_childcare.gph" "placebo_education.gph" "placebo_elderlycare.gph" "placebo_healthcare.gph", c(2) r(2)
graph save Graph "placebo_comb.gph", replace
graph export "placebo_comb.pdf", as(pdf) replace
